home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DOS.SWG / 0057_BOOT Source.pas < prev    next >
Pascal/Delphi Source File  |  1994-05-26  |  453b  |  32 lines
  1.  
  2. procedure ColdBoot; assembler;
  3. asm
  4.   xor    ax,ax
  5.   mov    ds,ax
  6.   mov    ah,$40
  7.   mov    es,ax
  8.   mov    word ptr es:$72,0
  9.   mov    ax,$FFFF
  10.   mov    es,ax
  11.   xor    si,si
  12.   push   ax
  13.   push   si
  14.   retf
  15. end;
  16.  
  17. procedure WarmBoot; assembler;
  18. asm
  19.   xor    ax,ax
  20.   mov    ds,ax
  21.   mov    ah,$40
  22.   mov    es,ax
  23.   mov    word ptr es:$72,$1234
  24.   mov    ax,$FFFF
  25.   mov    es,ax
  26.   xor    si,si
  27.   push   ax
  28.   push   si
  29.   retf
  30. end;
  31.  
  32.